home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 2000 September / macformat-094.iso / MacFormat CD / MacFormatOpen / 00001.ls next >
Encoding:
Text File  |  2000-07-21  |  572 b   |  25 lines
  1. on startMovie
  2.   global gAdvertCounter, gAdvert, gAdvertTotal, gAdvertDelay
  3.   gAdvertTotal = the number of castMembers of castLib "Advert"
  4.   gAdvertCounter = 0
  5.   gAdvert = random(gAdvertTotal)
  6.   gAdvertDelay = 400
  7.   the cpuHogTicks = 40
  8.   AdChange()
  9.   play movie "MacFormatReadMe"
  10. end
  11.  
  12. on AdChange
  13.   global gAdvertCounter, gAdvert, gAdvertTotal
  14.   if gAdvert = gAdvertTotal then
  15.     gAdvert = 1
  16.   else
  17.     if gAdvert < gAdvertTotal then
  18.       gAdvert = gAdvert + 1
  19.     end if
  20.   end if
  21.   sprite(12).member = member(gAdvert, "Advert")
  22.   updateStage()
  23.   gAdvertCounter = 0
  24. end
  25.